home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / cnet / brb_handlebars.lha / BRB < prev    next >
Text File  |  1995-10-15  |  2KB  |  35 lines
  1. /**************************************************************************\
  2.          $VER: BRB(Be Right Back), v1.70 (15-Oct-95) by Dotoran!
  3. \**************************************************************************/
  4. options results;signal on SYNTAX;signal on ERROR;signal on IOERR
  5. tr=transmit;se=sendstring;gc=getchar;gu=getuser;pu=putuser
  6. changewhere 'Be Right Back!';old=result;gu 38;Owho=result
  7.  
  8. /* --->#####################################<--Max. Length(37 Characters) */
  9.  a.1= "BRB BRB BRB BRB BRB BRB BRB BRB BRB"
  10.  a.2= "You'll Never Know Now Will You!"
  11.  a.3= "Somewhere Over The Rainbow!"
  12.  a.4= "Over The Hills & Through The Woods!"
  13.  a.5= "None Of Your Business!  :-)"
  14.  a.6= "In One Ear, Out The Other!"
  15.  a.7= ">>>>>--------> Hunting, dih!"
  16.  a.8= "To Catch The One That Got Away!"
  17.  a.9= "Somewhere, Anywhere, or Everywhere!"
  18. a.10= "To Do Some Excercise! 1 and 2 and 3!"
  19.  tot= 10   /* Change this value if you ADD or DELETE any of the above!  */
  20. who1= "W"  /* Use which who command(W, WH, WHO, etc.) when leaving.     */
  21. who2= "W"  /* Use which who command(W, WH, WHO, etc.) when returning.   */
  22.  
  23. se 'n1ceWhere c6are cbyou c6going? cf:cai144 37}';gu 70
  24. b=random(1,tot,time('s'));a=result;if a='' then a=a.b
  25. Nwho='BRB: 'a;setobject Nwho;pu 38
  26. se 'f1& 'who1'}n1cfPress cb"caRETURNcb" cfwhen you get c9Backcf...'
  27. do until c2d(a)=13;gc;a=result;end;setobject Owho;pu 38
  28. changewhere old;tr 'n2cfWelcome c9Back cdv1}cf!n1& 'who2'}'
  29. exit
  30. SYNTAX:;ERROR:;IOERR:;e1=' Error: 'rc' ('errortext(rc)')'
  31.   e2='  Line: 'left(sigl,4)'File:';gu 1311992;a=result;gu 1311960;b=result;c='"'a||b'"';e2=e2' 'c;tr e1;tr e2;logentry e1;logentry e2
  32.   e=sourceline(sigl);do while e~='';e3='Source: 'left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit
  33. /** Last Edited: 15-Oct-95 ************************************************\
  34. \****************************************** Frontiers BBS (716)/823-9892 **/
  35.